home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok12 / module / arraysort.def next >
Text File  |  1993-11-04  |  1KB  |  31 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.    ArraySort.def
  3.     :Author.     Bernd Preusing
  4.     :Address.    Gerhardstr. 16  D-2200 Elmshorn
  5.     :Phone.      04121/22486
  6.     :Shortcut.   [bep]
  7.     :Version.    1.0
  8.     :Date.       21-Oct-88
  9.     :Copyright.  PD
  10.     :Language.   Modula-II
  11.     :Translator. M2Amiga
  12.     :Imports.    ---
  13.     :UpDate.     
  14.     :Contents.   universal array sorter
  15.     :Remark.     Sortiert einen Array in aufsteigender Reihenfolge.
  16. ---------------------------------------------------------------------------*)
  17. DEFINITION MODULE ArraySort;
  18.  
  19. FROM SYSTEM IMPORT ADDRESS;
  20.  
  21.  TYPE
  22.    prLess = PROCEDURE(ADDRESS,ADDRESS):BOOLEAN;
  23.    (* returns TRUE, if item at 1st ADDRESS < item at 2nd ADDRESS *)
  24.    (* TRUE if 1st > 2nd : sorting in descending order *)
  25.  
  26. PROCEDURE Sort (VAR arr:ARRAY OF ADDRESS; (* eg POINTER TO RECORD or number *)
  27.         count:LONGINT;          (* count>0 *)
  28.                 less: prLess);          (* PROCEDURE called by Sort *)
  29.  
  30. END ArraySort.def
  31.